home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / FILTER.DO < prev    next >
Text File  |  1991-08-23  |  425b  |  14 lines
  1. /*
  2.     set a filter for the database and try it
  3.     this example prints out a Collection of all values for the
  4.     "lname" field between record numbers 5 and 15 inclusively
  5.  
  6.     NOTE - you must run the "CRDEMO.DO" program to create the
  7.         patient database before running this program
  8. */
  9. db = new(Dbffile,"patient");
  10. setFilter(db,#(recno(db) > 5L) & (recno(db) < 15L));
  11. ? asCollection(db,#trim(lname));
  12. close(db);
  13. ? memory();
  14.